﻿Imports DESTAJO.ENTIDAD
Imports DESTAJO.NEGOCIO
Imports DESTAJO.USER.CODE

Partial Public Class DES001
    Inherits System.Web.UI.Page

    Private oBLGrupoLabor As New bl_grupo_labor_destajo
    Private oUCFormWeb As UCFormWeb

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not (Page.IsPostBack) Then
            CargarDatosIniciales()

        End If

    End Sub

    Sub CargarDatosIniciales()
        Dim sError As String = Nothing

        'Cargar Grupo Labor
        Dim loE_grupo_labor_destajo As New List(Of e_grupo_labor_destajo)
        loE_grupo_labor_destajo = oBLGrupoLabor.f_BL_SelGrupoLabor("", sError)
        With ddlEmpaque
            .DataSource = loE_grupo_labor_destajo
            .DataTextField = "Nombre"
            .DataValueField = "Codigo"
            .DataBind()
        End With

        'Cargar Estado
        Dim loEstado As New List(Of BEParametroCad)
        Dim oEstado As New BEParametroCad
        oEstado.Codigo = "0"
        oEstado.Nombre = "INACTIVO"
        loEstado.Add(oEstado)
        oEstado = New BEParametroCad
        oEstado.Codigo = "1"
        oEstado.Nombre = "ACTIVO"
        loEstado.Add(oEstado)
        With ddlEstado
            .DataSource = loEstado
            .DataTextField = "Nombre"
            .DataValueField = "Codigo"
            .SelectedIndex = 1
            .DataBind()
        End With


    End Sub

End Class

